inherited frmPlanoContas: TfrmPlanoContas
  Left = 316
  Top = 218
  Width = 654
  Height = 293
  Caption = 'Plano de Contas'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 214
    Width = 638
    Height = 41
  end
  inherited tbrBotoes: TsToolBar
    Width = 638
    inherited spbAlterar: TsSpeedButton
      OnClick = spbAlterarClick
    end
    inherited spbExcluir: TsSpeedButton
      OnClick = spbExcluirClick
    end
  end
  object ntbPaginas: TsNotebook [2]
    Left = 0
    Top = 65
    Width = 638
    Height = 149
    Align = alClient
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgPrincipal'
      object sPanel1: TsPanel
        Left = 0
        Top = 0
        Width = 638
        Height = 149
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object sLabel1: TsLabel
          Left = 40
          Top = 40
          Width = 82
          Height = 13
          Caption = 'C'#243'digo da Conta:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel2: TsLabel
          Left = 40
          Top = 65
          Width = 97
          Height = 13
          Caption = 'Descri'#231#227'o da Conta:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel3: TsLabel
          Left = 40
          Top = 90
          Width = 70
          Height = 13
          Caption = 'Tipo da Conta:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object cedCodigoConta: TsCurrencyEdit
          Tag = 2000
          Left = 144
          Top = 36
          Width = 65
          Height = 21
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '######0'
        end
        object edtDescricaoConta: TsEdit
          Tag = 1000
          Left = 144
          Top = 61
          Width = 473
          Height = 21
          Hint = 'Digite a Descri'#231#227'o da Conta'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object cboTipoConta: TsComboBox
          Tag = 2000
          Left = 144
          Top = 86
          Width = 145
          Height = 21
          Hint = 'Selecione o Tipo da Conta'
          Alignment = taLeftJustify
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'COMBOBOX'
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          ItemIndex = -1
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          Items.Strings = (
            'ENTRADA'
            'SA'#205'DA')
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgConsulta'
      object sPanel2: TsPanel
        Left = 0
        Top = 0
        Width = 638
        Height = 149
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object dbgConsulta: TRxDBGrid
          Left = 1
          Top = 1
          Width = 636
          Height = 147
          Align = alClient
          DataSource = dtsConsulta
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = dbgConsultaDblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'CODIGO_CONTA'
              Title.Caption = 'C'#243'd. Conta'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DESCRICAO_CONTA'
              Title.Caption = 'Descri'#231#227'o Conta'
              Width = 360
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TIPO_CONTA'
              Title.Caption = 'Tipo Conta'
              Width = 90
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'EXIGE_PLACA_SN'
              Title.Caption = 'Exige Placa?'
              Visible = True
            end>
        end
      end
    end
  end
  inherited sSkinProvider1: TsSkinProvider
    Left = 440
    Top = 72
  end
  object qryIncluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'DESCRICAO_CONTA'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'TIPO_CONTA'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO PLANO_CONTAS'
      '('
      '  DESCRICAO_CONTA,'
      '  TIPO_CONTA'
      ')'
      'VALUES'
      '('
      '  :DESCRICAO_CONTA,'
      '  :TIPO_CONTA)')
    Left = 344
    Top = 209
  end
  object qryConsulta: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM PLANO_CONTAS'
      'WHERE 1 = 1'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '')
    Left = 104
    Top = 209
    object qryConsultaCODIGO_CONTA: TAutoIncField
      FieldName = 'CODIGO_CONTA'
      ReadOnly = True
    end
    object qryConsultaDESCRICAO_CONTA: TStringField
      FieldName = 'DESCRICAO_CONTA'
      Size = 100
    end
    object qryConsultaTIPO_CONTA: TStringField
      FieldName = 'TIPO_CONTA'
      Size = 10
    end
  end
  object dtsConsulta: TDataSource
    DataSet = qryConsulta
    Left = 184
    Top = 217
  end
  object qryAlterar: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'DESCRICAO_CONTA'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'CODIGO_CONTA'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'UPDATE PLANO_CONTAS'
      'SET DESCRICAO_CONTA    = :DESCRICAO_CONTA'
      'WHERE CODIGO_CONTA = :CODIGO_CONTA'
      ' ')
    Left = 448
    Top = 209
  end
  object qryExcluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_CONTA'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'DELETE FROM PLANO_CONTAS WHERE CODIGO_CONTA = :CODIGO_CONTA')
    Left = 512
    Top = 225
  end
end
